home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / SYMPH-5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  512 b   |  19 lines
  1. 10  'CLS:KEY OFF
  2. 20  PLAY"T200"
  3. 25  FOR J=1 TO 2
  4. 30  FOR I=1 TO 8
  5. 40   READ M$
  6. 50  PRINT M$
  7. 60   PLAY M$
  8. 70  NEXT I
  9. 75  RESTORE 100
  10. 80  NEXT
  11. 100  DATA "O3 D6 C+6 O2 B6 O3 D4 C+2 O2 A6 B6 O3 C+6 E4 D2 D6 E6 F+6"
  12. 110  DATA "G4. G8 G4. G8 G4 F+4 P4 D6 C+6 O2 B6"
  13. 120  DATA "O3 D4 C+2 O2 A6 B6 O3 C+6 E4 D2 D6 E6 F+6"
  14. 130  DATA "G+4. G+8 G+4. G+8 G+6 B6 A6 A2 F+6 G6 A6"
  15. 140  DATA "A4 O2B2 O3E6 F+6 G6 G4 O2A2 O3D6 E6 F+6"
  16. 150  DATA "F+4 F+4 F+4 F+4. E8 B4 A4 A8 G8 F+6 G6 A6"
  17. 160  DATA "A4 O2B2 O3E6 F+6 G6 G4 O2A2 O3D6 E6 F+6"
  18. 170  DATA "F+4 F+4 F+4. E8 D1"
  19.